home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.42
/
includes3v1
/
includes3v1.lha
/
Libraries
/
Asl.i
< prev
next >
Wrap
Text File
|
1994-12-04
|
17KB
|
412 lines
{$I "Include:Exec/Lists.i"}
{$I "Include:Exec/Libraries.i"}
{$I "Include:Utility/Hooks.i"}
{$I "Include:Utility/TagItem.i"}
{$I "Include:Workbench/Startup.i"}
{$I "Include:Graphics/Text.i"}
{$I "Include:Graphics/DisplayInfo.i"}
{************************************************************************}
CONST
AslName = "asl.library";
ASL_TB = TAG_USER+$80000;
{************************************************************************}
{ Types of requesters known to ASL, used as arguments to AllocAslRequest() }
ASL_FileRequest = 0;
ASL_FontRequest = 1;
ASL_ScreenModeRequest = 2;
{****************************************************************************
*
* ASL File Requester data structures and constants
*
* This structure must only be allocated by asl.library amd is READ-ONLY!
* Control of the various fields is provided via tags when the requester
* is created with AllocAslRequest() and when it is displayed via
* AslRequest()
}
type
FileRequester = Record
rf_Reserved0 : Array[0..3] of Byte;
rf_File : String; { Filename pointer }
rf_Dir : String; { Directory name pointer }
rf_Reserved1 : Array[0..9] of Byte;
rf_LeftEdge,rf_TopEdge, { Preferred window pos }
rf_Width,rf_Height : WORD; { Preferred window size }
rf_Reserved2 : Array[0..1] of Byte;
rf_NumArgs : Integer; { A-la WB Args, for multiselects }
rf_ArgList : WBArgListPtr;
rf_UserData : Address; { Applihandle (you may write!!) }
rf_Reserved3 : Array[0..7] of Byte;
rf_Pat : String; { Pattern match pointer }
END; { note - more reserved fields follow }
FileRequesterPtr = ^FileRequester;
{ File requester tag values, used by AllocAslRequest() and AslRequest() }
const
{ Window control }
ASLFR_Window = ASL_TB+2 ; { Parent window }
ASLFR_Screen = ASL_TB+40; { Screen to open on if no window }
ASLFR_PubScreenName = ASL_TB+41; { Name of public screen }
ASLFR_PrivateIDCMP = ASL_TB+42; { Allocate private IDCMP? }
ASLFR_IntuiMsgFunc = ASL_TB+70; { Function to handle IntuiMessages }
ASLFR_SleepWindow = ASL_TB+43; { Block input in ASLFR_Window? }
ASLFR_UserData = ASL_TB+52; { What to put in fr_UserData }
{ Text display }
ASLFR_TextAttr = ASL_TB+51; { Text font to use for gadget text }
ASLFR_Locale = ASL_TB+50; { Locale ASL should use for text }
ASLFR_TitleText = ASL_TB+1 ; { Title of requester }
ASLFR_PositiveText = ASL_TB+18; { Positive gadget text }
ASLFR_NegativeText = ASL_TB+19; { Negative gadget text }
{ Initial settings }
ASLFR_InitialLeftEdge= ASL_TB+3 ; { Initial requester coordinates }
ASLFR_InitialTopEdge = ASL_TB+4 ;
ASLFR_InitialWidth = ASL_TB+5 ; { Initial requester dimensions }
ASLFR_InitialHeight = ASL_TB+6 ;
ASLFR_InitialFile = ASL_TB+8 ; { Initial contents of File gadget }
ASLFR_InitialDrawer = ASL_TB+9 ; { Initial contents of Drawer gadg. }
ASLFR_InitialPattern = ASL_TB+10; { Initial contents of Pattern gadg.}
{ Options }
ASLFR_Flags1 = ASL_TB+20; { Option flags }
ASLFR_Flags2 = ASL_TB+22; { Additional option flags }
ASLFR_DoSaveMode = ASL_TB+44; { Being used for saving? }
ASLFR_DoMultiSelect = ASL_TB+45; { Do multi-select? }
ASLFR_DoPatterns = ASL_TB+46; { Display a Pattern gadget? }
{ Filtering }
ASLFR_DrawersOnly = ASL_TB+47; { Don't display files? }
ASLFR_FilterFunc = ASL_TB+49; { Function to filter files }
ASLFR_RejectIcons = ASL_TB+60; { Display .info files? }
ASLFR_RejectPattern = ASL_TB+61; { Don't display files matching pat }
ASLFR_AcceptPattern = ASL_TB+62; { Accept only files matching pat }
ASLFR_FilterDrawers = ASL_TB+63; { Also filter drawers with patterns}
ASLFR_HookFunc = ASL_TB+7 ; { Combined callback function }
{ Flag bits for the ASLFR_Flags1 tag }
FRB_FILTERFUNC = 7;
FRB_INTUIFUNC = 6;
FRB_DOSAVEMODE = 5;
FRB_PRIVATEIDCMP = 4;
FRB_DOMULTISELECT = 3;
FRB_DOPATTERNS = 0;
FRF_FILTERFUNC = 128;
FRF_INTUIFUNC = 64;
FRF_DOSAVEMODE = 32;
FRF_PRIVATEIDCMP = 16;
FRF_DOMULTISELECT = 8;
FRF_DOPATTERNS = 1;
{ Flag bits for the ASLFR_Flags2 tag }
FRB_DRAWERSONLY = 0;
FRB_FILTERDRAWERS = 1;
FRB_REJECTICONS = 2;
FRF_DRAWERSONLY = 1;
FRF_FILTERDRAWERS = 2;
FRF_REJECTICONS = 4;
{****************************************************************************
*
* ASL Font Requester data structures and constants
*
* This structure must only be allocated by asl.library amd is READ-ONLY!
* Control of the various fields is provided via tags when the requester
* is created with AllocAslRequest() and when it is displayed via
* AslRequest()
}
Type
FontRequester = Record
fo_Reserved0 : Array[0..7] of Byte;
fo_Attr : TextAttr; { Returned TextAttr }
fo_FrontPen, { Returned front pen }
fo_BackPen, { Returned back pen }
fo_DrawMode : Byte; { Returned drawing mode }
fo_Reserved1 : Byte;
fo_UserData : APTR; { You can store your own data here }
fo_LeftEdge, { Coordinates of requester on exit }
fo_TopEdge,
fo_Width,
fo_Height : WORD;
fo_TAttr : TTextAttr; { Returned TTextAttr }
end;
FontRequesterPtr = ^FontRequester;
{ Font requester tag values, used by AllocAslRequest() and AslRequest() }
const
{ Window control }
ASLFO_Window = ASL_TB+2 ; { Parent window }
ASLFO_Screen = ASL_TB+40; { Screen to open on if no window }
ASLFO_PubScreenName = ASL_TB+41; { Name of public screen }
ASLFO_PrivateIDCMP = ASL_TB+42; { Allocate private IDCMP? }
ASLFO_IntuiMsgFunc = ASL_TB+70; { Function to handle IntuiMessages }
ASLFO_SleepWindow = ASL_TB+43; { Block input in ASLFO_Window? }
ASLFO_UserData = ASL_TB+52; { What to put in fo_UserData }
{ Text display }
ASLFO_TextAttr = ASL_TB+51; { Text font to use for gadget text }
ASLFO_Locale = ASL_TB+50; { Locale ASL should use for text }
ASLFO_TitleText = ASL_TB+1 ; { Title of requester }
ASLFO_PositiveText = ASL_TB+18; { Positive gadget text }
ASLFO_NegativeText = ASL_TB+19; { Negative gadget text }
{ Initial settings }
ASLFO_InitialLeftEdge= ASL_TB+3 ; { Initial requester coordinates }
ASLFO_InitialTopEdge = ASL_TB+4 ;
ASLFO_InitialWidth = ASL_TB+5 ; { Initial requester dimensions }
ASLFO_InitialHeight = ASL_TB+6 ;
ASLFO_InitialName = ASL_TB+10; { Initial contents of Name gadget }
ASLFO_InitialSize = ASL_TB+11; { Initial contents of Size gadget }
ASLFO_InitialStyle = ASL_TB+12; { Initial font style }
ASLFO_InitialFlags = ASL_TB+13; { Initial font flags for TextAttr }
ASLFO_InitialFrontPen= ASL_TB+14; { Initial front pen }
ASLFO_InitialBackPen = ASL_TB+15; { Initial back pen }
ASLFO_InitialDrawMode= ASL_TB+59; { Initial draw mode }
{ Options }
ASLFO_Flags = ASL_TB+20; { Option flags }
ASLFO_DoFrontPen = ASL_TB+44; { Display Front color selector? }
ASLFO_DoBackPen = ASL_TB+45; { Display Back color selector? }
ASLFO_DoStyle = ASL_TB+46; { Display Style checkboxes? }
ASLFO_DoDrawMode = ASL_TB+47; { Display DrawMode cycle gadget? }
{ Filtering }
ASLFO_FixedWidthOnly = ASL_TB+48; { Only allow fixed-width fonts? }
ASLFO_MinHeight = ASL_TB+16; { Minimum font height to display }
ASLFO_MaxHeight = ASL_TB+17; { Maximum font height to display }
ASLFO_FilterFunc = ASL_TB+49; { Function to filter fonts }
ASLFO_HookFunc = ASL_TB+7 ; { Combined callback function }
ASLFO_MaxFrontPen = ASL_TB+66; { Max # of colors in front palette }
ASLFO_MaxBackPen = ASL_TB+67; { Max # of colors in back palette }
{ Custom additions }
ASLFO_ModeList = ASL_TB+21; { Substitute list for drawmodes }
ASLFO_FrontPens = ASL_TB+64; { Color table for front pen palette}
ASLFO_BackPens = ASL_TB+65; { Color table for back pen palette }
{ Flag bits for ASLFO_Flags tag }
FOB_DOFRONTPEN = 0;
FOB_DOBACKPEN = 1;
FOB_DOSTYLE = 2;
FOB_DODRAWMODE = 3;
FOB_FIXEDWIDTHONLY= 4;
FOB_PRIVATEIDCMP = 5;
FOB_INTUIFUNC = 6;
FOB_FILTERFUNC = 7;
FOF_DOFRONTPEN = 1;
FOF_DOBACKPEN = 2;
FOF_DOSTYLE = 4;
FOF_DODRAWMODE = 8;
FOF_FIXEDWIDTHONLY = 16;
FOF_PRIVATEIDCMP = 32;
FOF_INTUIFUNC = 64;
FOF_FILTERFUNC = 128;
{****************************************************************************
*
* ASL Screen Mode Requester data structures and constants
*
* This structure must only be allocated by asl.library and is READ-ONLY!
* Control of the various fields is provided via tags when the requester
* is created with AllocAslRequest() and when it is displayed via
* AslRequest()
}
Type
ScreenModeRequester = Record
sm_DisplayID : Integer; { Display mode ID }
sm_DisplayWidth, { Width of display in pixels }
sm_DisplayHeight : Integer; { Height of display in pixels }
sm_DisplayDepth, { Number of bit-planes of display }
sm_OverscanType : WORD; { Type of overscan of display }
sm_AutoScroll : Boolean; { Display should auto-scroll? }
sm_BitMapWidth, { Used to create your own BitMap }
sm_BitMapHeight : Integer;
sm_LeftEdge, { Coordinates of requester on exit }
sm_TopEdge,
sm_Width,
sm_Height : WORD;
sm_InfoOpened : Boolean; { Info window opened on exit? }
sm_InfoLeftEdge, { Last coordinates of Info window }
sm_InfoTopEdge,
sm_InfoWidth,
sm_InfoHeight : WORD;
sm_UserData : APTR; { You can store your own data here }
end;
ScreenModeRequesterPtr = ^ScreenModeRequester;
{ An Exec list of custom modes can be added to the list of available modes.
* The DimensionInfo structure must be completely initialized, including the
* Header. See <graphics/displayinfo.h>. Custom mode ID's must be in the range
* $FFFF0000..$FFFFFFFF. Regular properties which apply to your custom modes
* can be added in the dn_PropertyFlags field. Custom properties are not
* allowed.
}
DisplayMode = Record
dm_Node : Node; { see ln_Name }
dm_DimensionInfo : DimensionInfo; { mode description }
dm_PropertyFlags : Integer; { applicable properties }
end;
DisplayModePtr = ^DisplayMode;
{ ScreenMode requester tag values, used by AllocAslRequest() and AslRequest() }
const
{ Window control }
ASLSM_Window = ASL_TB+2 ; { Parent window }
ASLSM_Screen = ASL_TB+40; { Screen to open on if no window }
ASLSM_PubScreenName = ASL_TB+41; { Name of public screen }
ASLSM_PrivateIDCMP = ASL_TB+42; { Allocate private IDCMP? }
ASLSM_IntuiMsgFunc = ASL_TB+70; { Function to handle IntuiMessages }
ASLSM_SleepWindow = ASL_TB+43; { Block input in ASLSM_Window? }
ASLSM_UserData = ASL_TB+52; { What to put in sm_UserData }
{ Text display }
ASLSM_TextAttr = ASL_TB+51; { Text font to use for gadget text }
ASLSM_Locale = ASL_TB+50; { Locale ASL should use for text }
ASLSM_TitleText = ASL_TB+1 ; { Title of requester }
ASLSM_PositiveText = ASL_TB+18; { Positive gadget text }
ASLSM_NegativeText = ASL_TB+19; { Negative gadget text }
{ Initial settings }
ASLSM_InitialLeftEdge = ASL_TB+3 ; { Initial requester coordinates }
ASLSM_InitialTopEdge = ASL_TB+4 ;
ASLSM_InitialWidth = ASL_TB+5 ; { Initial requester dimensions }
ASLSM_InitialHeight = ASL_TB+6 ;
ASLSM_InitialDisplayID = ASL_TB+100; { Initial display mode id }
ASLSM_InitialDisplayWidth = ASL_TB+101; { Initial display width }
ASLSM_InitialDisplayHeight = ASL_TB+102; { Initial display height }
ASLSM_InitialDisplayDepth = ASL_TB+103; { Initial display depth }
ASLSM_InitialOverscanType = ASL_TB+104; { Initial type of overscan }
ASLSM_InitialAutoScroll = ASL_TB+105; { Initial autoscroll setting }
ASLSM_InitialInfoOpened = ASL_TB+106; { Info wndw initially opened? }
ASLSM_InitialInfoLeftEdge = ASL_TB+107; { Initial Info window coords. }
ASLSM_InitialInfoTopEdge = ASL_TB+108;
{ Options }
ASLSM_DoWidth = ASL_TB+109; { Display Width gadget? }
ASLSM_DoHeight = ASL_TB+110; { Display Height gadget? }
ASLSM_DoDepth = ASL_TB+111; { Display Depth gadget? }
ASLSM_DoOverscanType = ASL_TB+112; { Display Overscan Type gadget? }
ASLSM_DoAutoScroll = ASL_TB+113; { Display AutoScroll gadget? }
{ Filtering }
ASLSM_PropertyFlags = ASL_TB+114; { Must have these Property flags }
ASLSM_PropertyMask = ASL_TB+115; { Only these should be looked at }
ASLSM_MinWidth = ASL_TB+116; { Minimum display width to allow }
ASLSM_MaxWidth = ASL_TB+117; { Maximum display width to allow }
ASLSM_MinHeight = ASL_TB+118; { Minimum display height to allow }
ASLSM_MaxHeight = ASL_TB+119; { Maximum display height to allow }
ASLSM_MinDepth = ASL_TB+120; { Minimum display depth }
ASLSM_MaxDepth = ASL_TB+121; { Maximum display depth }
ASLSM_FilterFunc = ASL_TB+122; { Function to filter mode id's }
{ Custom additions }
ASLSM_CustomSMList = ASL_TB+123; { Exec list of struct DisplayMode }
{****************************************************************************
*
* Obsolete ASL definitions, here for source code compatibility only.
* Please do NOT use in new code.
*
* ASL_V38_NAMES_ONLY to remove these older names
}
Const
ASL_Dummy = (TAG_USER + $80000);
ASL_Hail = ASL_Dummy+1 ;
ASL_Window = ASL_Dummy+2 ;
ASL_LeftEdge = ASL_Dummy+3 ;
ASL_TopEdge = ASL_Dummy+4 ;
ASL_Width = ASL_Dummy+5 ;
ASL_Height = ASL_Dummy+6 ;
ASL_HookFunc = ASL_Dummy+7 ;
ASL_File = ASL_Dummy+8 ;
ASL_Dir = ASL_Dummy+9 ;
ASL_FontName = ASL_Dummy+10;
ASL_FontHeight = ASL_Dummy+11;
ASL_FontStyles = ASL_Dummy+12;
ASL_FontFlags = ASL_Dummy+13;
ASL_FrontPen = ASL_Dummy+14;
ASL_BackPen = ASL_Dummy+15;
ASL_MinHeight = ASL_Dummy+16;
ASL_MaxHeight = ASL_Dummy+17;
ASL_OKText = ASL_Dummy+18;
ASL_CancelText = ASL_Dummy+19;
ASL_FuncFlags = ASL_Dummy+20;
ASL_ModeList = ASL_Dummy+21;
ASL_ExtFlags1 = ASL_Dummy+22;
ASL_Pattern = ASL_FontName;
{ remember what I said up there? Do not use these anymore! }
FILB_DOWILDFUNC = 7;
FILB_DOMSGFUNC = 6;
FILB_SAVE = 5;
FILB_NEWIDCMP = 4;
FILB_MULTISELECT = 3;
FILB_PATGAD = 0;
FILF_DOWILDFUNC = 128;
FILF_DOMSGFUNC = 64;
FILF_SAVE = 32;
FILF_NEWIDCMP = 16;
FILF_MULTISELECT = 8;
FILF_PATGAD = 1;
FIL1B_NOFILES = 0;
FIL1B_MATCHDIRS = 1;
FIL1F_NOFILES = 1;
FIL1F_MATCHDIRS = 2;
FONB_FRONTCOLOR = 0;
FONB_BACKCOLOR = 1;
FONB_STYLES = 2;
FONB_DRAWMODE = 3;
FONB_FIXEDWIDTH = 4;
FONB_NEWIDCMP = 5;
FONB_DOMSGFUNC = 6;
FONB_DOWILDFUNC = 7;
FONF_FRONTCOLOR = 1;
FONF_BACKCOLOR = 2;
FONF_STYLES = 4;
FONF_DRAWMODE = 8;
FONF_FIXEDWIDTH = 16;
FONF_NEWIDCMP = 32;
FONF_DOMSGFUNC = 64;
FONF_DOWILDFUNC = 128;
{***************************************************************************}
FUNCTION AllocAslRequest(Typ : Integer; TagList : Address) : Address;
External;
FUNCTION AllocFileRequest : FileRequesterPtr;
External;
FUNCTION AslRequest(Req : Address; TagList : Address) : Boolean;
External;
PROCEDURE FreeAslRequest(Req : Address);
External;
PROCEDURE FreeFileRequest(Req : FileRequesterPtr);
External;
FUNCTION RequestFile(Req : FIleRequesterPtr) : Boolean;
External;